home *** CD-ROM | disk | FTP | other *** search
/ Basic Instinct 2 Press Kit / Basic Instinct 2 Press Kit.iso / pc / main.dxr / assets_16.ls < prev    next >
Encoding:
Text File  |  2006-03-15  |  521 b   |  20 lines
  1. global gDebugTimer, gDebugTicks, gDubugText, gTracker, gRecordSet
  2.  
  3. on enterFrame me
  4.   gDebugTimer = the timer
  5.   gDebugTicks = 60 * 10
  6.   gDubugText = EMPTY
  7.   sprite(9).member.text = "Waiting for Server"
  8.   cursor(-1)
  9.   gTracker.pGeneralList.endDateTime = the date & " " & the long time
  10.   if gTracker.p12345 = EMPTY then
  11.     gTracker.mNoInterNetConnection()
  12.   else
  13.     gRecordSet.mProcessCurrentRecordSet()
  14.   end if
  15.   vlist = [22, 23, 24]
  16.   repeat with x = 1 to vlist.count
  17.     sprite(vlist[x]).visible = 1
  18.   end repeat
  19. end
  20.